﻿unit VirsionFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  dxRibbonForm,Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsdxRibbonPainter, cxClasses, dxRibbon, cxTextEdit, cxMemo, cxRichEdit,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinSeven;

type
  TVersionForm = class(Tdxcustomribbonform)
    rch1: TcxRichEdit;
    Ribbon1Tab1: TdxRibbonTab;
    Ribbon1: TdxRibbon;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VersionForm: TVersionForm;

implementation

{$R *.dfm}
{-------------------------------------------------------------------------------
 FormCreate|Загружаем историю версий
-------------------------------------------------------------------------------}
procedure TVersionForm.FormCreate(Sender: TObject);
var
  AName :string;
begin
 //
 AName:=ExtractFilePath(Application.ExeName)+'config\History.rtf';
 if FileExists(AName) then
 rch1.Lines.LoadFromFile(AName) else
 rch1.Lines.Add('Не найден файл с историей версий.');
end;

end.
